home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClassAdministrator1.3.cpt / Classroom Administrator / card_5012.txt < prev    next >
Text File  |  1988-04-18  |  5KB  |  235 lines
  1. -- card: 5012 from stack: in
  2. -- bmap block id: 2282
  3. -- flags: 0000
  4. -- background id: 3875
  5. -- name: Configuration
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   global teacher, report
  9.   enablemenu teacher, 0, false
  10.   enablemenu report, 0, false
  11. end OpenCard
  12.  
  13. on CloseCard
  14.   global teacher, report
  15.   enablemenu teacher, 0, true
  16.   enablemenu report, 0, true
  17. end CloseCard
  18.  
  19.  
  20.  
  21. -- part 3 (button)
  22. -- low flags: 00
  23. -- high flags: 8003
  24. -- rect: left=382 top=128 right=156 bottom=464
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Configure
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   global A,B,C,D, configuration
  36.   put card field "B" into B
  37.   put card field "A" into A
  38.   put card field "C" into C
  39.   put card field "D" into D
  40.   go to card 2
  41.   if field 1 of this card is not empty then
  42.     go to card 1
  43.     domenu "delete card"
  44.     put "This may take a few minutes" into msg
  45.     doSeatingChart
  46.     set lockscreen to true
  47.     set cursor to 4
  48.     doProfiles
  49.     doGrades
  50.     doAttendance
  51.     set lockscreen to false
  52.   end if
  53.   put deletemenu(configuration) into configuration
  54.   go to first card
  55.   ask "Personalize this stack" with "Period 1"
  56.   set the name of this stack to it
  57. end mouseUp
  58.  
  59.  
  60.  
  61. on doSeatingChart
  62.   go to first card
  63.   repeat with z = 2 to 36
  64.     set the script of field z to the script of field 1
  65.   end repeat
  66. end doSeatingChart
  67.  
  68. on DoProfiles
  69.   global A,B,C,D
  70.   go to card "ProfileTemplate"
  71.   doMenu "Copy Card"
  72.   repeat with x = 1 to 36
  73.     go to last card
  74.     put word 1 of field x of first card into temp1
  75.     put word 2 of field x of first card into temp2
  76.     if temp1 is empty then
  77.       next repeat
  78.     end if
  79.     doMenu "Paste Card"
  80.     put A into card field "A"
  81.     put B into card field "B"
  82.     put C into card field "C"
  83.     put D into card field "D"
  84.     put temp1 && temp2 into field "Name"
  85.     put char 1 of temp1 & temp2 & "Profile" into cardname
  86.     get name of this card
  87.     set name of this card to cardname
  88.   end repeat
  89. end DoProfiles
  90.  
  91. on DoGrades
  92.   global ClassName, Period
  93.   go to card "GradesTemplate"
  94.   doMenu "Copy Card"
  95.   repeat with x = 1 to 36
  96.     go to last card
  97.     put word 1 of field x of first card into temp1
  98.     put word 2 of field x of first card into temp2
  99.     if temp1 is empty then
  100.       next repeat
  101.     end if
  102.     doMenu "Paste Card"
  103.     put temp1 && temp2 into field "Name"
  104.     put char 1 of temp1 & temp2 & "Grades" into cardname
  105.     set name of this card to cardname
  106.     put ClassName into card field "Class"
  107.     put Period into card field "Period"
  108.   end repeat
  109. end DoGrades
  110.  
  111. on DoAttendance
  112.   go to card "AttendanceTemplate"
  113.   doMenu "Copy Card"
  114.   repeat with x = 1 to 36
  115.     go to last card
  116.     put word 1 of field x of first card into temp1
  117.     put word 2 of field x of first card into temp2
  118.     if temp1 is empty then
  119.       next repeat
  120.     end if
  121.     doMenu "Paste Card"
  122.     put temp1 && temp2 into card field "Name"
  123.     put char 1 of temp1 & temp2 & "Attendance" into cardname
  124.     set name of this card to cardname
  125.     put ClassName into card field "Class"
  126.     put period into card field "Period"
  127.   end repeat
  128.   put "Your class record is now complete" into msg
  129. end DoAttendance
  130.  
  131.  
  132.  
  133.  
  134.  
  135. -- part 12 (field)
  136. -- low flags: 00
  137. -- high flags: 4000
  138. -- rect: left=58 top=255 right=305 bottom=101
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: A
  147.  
  148.  
  149. -- part 13 (field)
  150. -- low flags: 00
  151. -- high flags: 4000
  152. -- rect: left=120 top=255 right=305 bottom=166
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: B
  161.  
  162.  
  163. -- part 14 (field)
  164. -- low flags: 00
  165. -- high flags: 4000
  166. -- rect: left=184 top=255 right=305 bottom=229
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 0
  170. -- font id: 3
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: C
  175.  
  176.  
  177. -- part 15 (field)
  178. -- low flags: 00
  179. -- high flags: 4000
  180. -- rect: left=254 top=255 right=305 bottom=301
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 0
  184. -- font id: 3
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: D
  189.  
  190.  
  191. -- part 16 (field)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=49 top=81 right=217 bottom=339
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 3
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: 
  203.  
  204.  
  205. -- part contents for card part 12
  206. ----- text -----
  207. 97.5
  208. 92.5
  209. 90.0
  210.  
  211. -- part contents for card part 13
  212. ----- text -----
  213. 87.5
  214. 82.5
  215. 80.0
  216. 77.5
  217.  
  218. -- part contents for card part 14
  219. ----- text -----
  220. 77.5
  221. 72.5
  222. 70.0
  223.  
  224. -- part contents for card part 15
  225. ----- text -----
  226. 67.5
  227. 62.5
  228. 60.0
  229.  
  230. -- part contents for card part 16
  231. ----- text -----
  232. Before proceeding, check to make sure that you have filled out all the appropriate information for your classes.
  233.  
  234.  
  235.